JuniorNet 1.1/juniornet.bin/SETUP/CDcontent/ZI/ZIPL/ZIPL002x1.dcr/code_1_Button Message Behavior.ls

Text File | 1999-02-21 | 552 b | 30 lines

property pActivity, pMessage, pMouseFlag

on getPropertyDescriptionList
  myList = [:]
  setaProp(myList, #pActivity, [#comment: "Activity Code:", #format: #string, #default: "XXXX"])
  setaProp(myList, #pMessage, [#comment: "Message #:", #format: #integer, #default: 9999])
  return myList
end

on beginSprite me
  pMouseFlag = 0
end

on mouseDown me
  pMouseFlag = 1
end

on mouseUp me
  if pMouseFlag then
    SendActMsg(pActivity, pMessage)
    pMouseFlag = 0
  end if
end

on mouseUpOutSide me
  if pMouseFlag then
    pMouseFlag = 0
  end if
end